---
title: COVID19(Erie county)
date: "`r gsub('\\(updated |\\ EST)|/2020', '', attributes(Counts$counts)$update.time)`"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    navbar:
      - { icon: fa-github, href: "https://github.com/hubentu/COVID19Erie"}
      - { title: "Erie Case Map", href: "https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1"}
      - { title: "Global Map", href: "https://coronavirus.jhu.edu/map.html"}
    social: menu
    source_code: embed
    vertical_layout: scroll
---

```{r setup, include=FALSE}
library(flexdashboard)
library(fontawesome)
## library(COVID19Erie)
## pubExposed <- exposedPub()
```

```{r}
Counts <- caseCounts()
counts <- Counts$counts
ctable1 <- rbind(counts,
                c(town = "Total", colSums(counts[,-1])))
ycount <- historyCount$confirmed[historyCount$date == Sys.Date() - 1]
ncount <- attributes(counts)$total.confirmed - ycount
```

Row {data-width=300}
-----------------------------------------------------------------------

### confirmed {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.confirmed,
  caption = paste0("Total confirmed cases (+", ncount, ")"),
  icon = "fas fa-ambulance",
  color = "purple"
)
```

### PCR tests {.value-box}
```{r}
valueBox(
  value = attributes(counts)$PCR.tested,
  caption = "Total PCR (Swab) Tests",
  icon = "fas fa-hospital-user",
  color = "#1f77b4"
)
```

### Antibody Tests {.value-box}
```{r}
valueBox(
  value = attributes(counts)$Antibody.tested,
  caption = "Total Antibody Tests",
  icon = "fas fa-hospital-user",
  color = "forestgreen"
)
```












### death {.value-box}

```{r}
valueBox(
  value = attributes(counts)$total.deaths,
  caption = "Death cases",
  icon = "fas fa-heart-broken",
  color = "#474747"
)
```


Row {data-height=600}
-----------------------------------------------------------------------
    
### Map
    
```{r}
caseMap(Counts, pubExposed, titlePos = NULL)
```

### Daily cumulative cases
```{r}
countPlot(historyCount)
```

Row
---------------------------------------------------------------------

### Zipcode cases
```{r}
library(DT)
datatable(Counts$zipCounts, options = list(scrollX = T))
```

### Town cases

```{r}
## library(knitr)
## library(kableExtra)
## kable(ctable1,
##       caption = "COVID19 cases (Erie county)") %>%
##     kable_styling(full_width = TRUE) %>% 
##     footnote(general = c(paste("Last updated:", attributes(counts)$update.time),
##                          "[Data Source](https://erieny.maps.arcgis.com/apps/opsdashboard/index.html#/dd7f1c0c352e4192ab162a1dfadc58e1)",
##                          "[Public Advisories](http://www2.erie.gov/health/index.php?q=public-advisories)",
##                          "The data is only for educational and academic research purposes.")) %>%
## scroll_box(height = "600px")
datatable(ctable1[,1:2], options = list(scrollX = T))
```

Row
----------------------------------------------------------------------

### Daily counts {.no-mobile}
```{r}
datatable(historyCount[order(historyCount$date, decreasing = TRUE),],
          extensions = 'Scroller',
          options = list(scrollX = TRUE))
```

### Daily counts {.mobile}
```{r}
library(knitr)
library(kableExtra)
kable(historyCount[order(historyCount$date, decreasing = TRUE),]) %>%
    kable_styling(font_size = 8)%>%
    scroll_box(height = "600px", width = "100%")
```